home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 December / macformat-057.iso / mac / Shareware Plus / System components / Desktop Pictures Grab Bag / Close all wins. but front next >
Encoding:
Text File  |  1997-09-02  |  208 b   |  8 lines  |  [TEXT/ToyS]
  1. tell application "Finder"
  2.     set theWindows to every window as list
  3.     set numOfWindows to the count of theWindows
  4.     repeat with i from 2 to numOfWindows
  5.         close window 2
  6.     end repeat
  7.     set theWindows to {}
  8. end tell